home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / fquit.dir / 00040_Script_a2StateButton < prev   
Text File  |  1995-09-06  |  1KB  |  65 lines
  1. property pSprite,pCast,pNutral,pDepressed,pFunction,pMySound,pCursor
  2.  
  3. on birth me,theSprite,theCast,aSound,aFunction,aCursor
  4.   set pSprite = theSprite
  5.   set pcursor = aCursor
  6.   set pCast = theCast
  7.   set pMySound = aSound
  8.   set pNutral = pCast
  9.   set pDepressed = pCast + 1
  10.   set pFunction = aFunction
  11.   puppetSprite pSprite,TRUE
  12.   set the castNum of sprite pSprite = pCast
  13.   return me
  14. end
  15.  
  16. on setNewFunction me, aFunction 
  17.   set pFunction = aFunction
  18. end
  19.  
  20. on setNewSound me, aNewSound 
  21.   set pMySound = aNewSound
  22. end
  23.  
  24. on reset me
  25.   set the castNum of sprite pSprite = pNutral
  26.   updatestage
  27. end
  28.  
  29. on hilight me
  30.   puppettransition 0
  31.   if (rollover(pSprite)) then
  32.     if (the mouseDown) then
  33.       puppetsound pMySound
  34.       DepressedState(me)
  35.       wait .2
  36.       reset(me)
  37.       do pFunction
  38.     else
  39.       reset(me)
  40.     end if
  41.   end if
  42.   reset(me)
  43. end
  44.  
  45.  
  46. on hideControl me
  47.   puppetSprite pSprite, FALSE
  48. end
  49.  
  50. on showControl me
  51.   puppetSprite pSprite,TRUE
  52. end 
  53.  
  54. on changeBaseButton me, newBase
  55.   set pCast = newBase
  56.   set pDepressed = pCast + 1
  57.   set the castNum of sprite pSprite = pCast
  58. end
  59.  
  60.  
  61. on DepressedState me
  62.   set the castNum of sprite pSprite = pDepressed
  63.   Updatestage
  64. end
  65.